Imports ccapps.Footer
Imports CasClientBase
Imports ccapps.persistent.laContractUpdate
Imports ccapps.persistent.batchJobRequest
Imports ccapps.Util

Namespace Web.page

    Public Class BatchJobsLog
        Inherits [lib].BasePage


#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub
        Protected WithEvents ltlAlert As System.Web.UI.WebControls.Literal
        Protected WithEvents Button66 As System.Web.UI.WebControls.Button
        Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
        Protected WithEvents proc As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents reqno As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents jobid As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents parameterGrid As System.Web.UI.WebControls.DataGrid
        Protected WithEvents param_status As System.Web.UI.HtmlControls.HtmlGenericControl
        Protected WithEvents param_tarih As System.Web.UI.HtmlControls.HtmlGenericControl
        Protected WithEvents logArea As System.Web.UI.WebControls.TextBox
        'Protected WithEvents Button1 As System.Web.UI.HtmlControls.HtmlInputButton

        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here



            Dim SQL As String
            Dim usr As String
            Dim req As String
            Dim temp As DataTable
            'Dim ds As New myDBConn
            Session.LCID = 1055
            Dim Vproc As String
            Vproc = Me.proc.Value
            Me.proc.Value = ""


            Dim reqID As String = Request.QueryString.Item(0).ToString.Replace("$", "#")

            Me.PageTitle = "PARAMETER AND LOGS"

            temp = RequestParameter(reqID, Session("user"))
            Me.param_tarih.InnerHtml = temp.Rows(0)(0)
            Me.param_status.InnerHtml = temp.Rows(0)(3)

            Me.parameterGrid.DataSource = temp
            Me.parameterGrid.DataBind()
            Me.parameterGrid.Visible = True


            Dim log As String = ""
            If logRead(reqID).Rows.Count > 0 Then
                log = logRead(reqID).Rows(0)(0)
            End If
            Me.logArea.Text = log


        End Sub
        
        
    End Class
End Namespace